setdisplay(576,120,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
prints("pressing any key will close this example")
waitkey
end
if key(27)<>0 then:end:end if
